﻿
''' <summary>
''' Events arguments representing a Zip making operation.
''' </summary>
Public Class ZipMakingEventArgs
    Inherits EventArgs
    Public Sub New(ByVal addedsize As Long, ByVal totalsize As Long, ByVal addedentries As Long, ByVal totalentries As Long)
        _AddedSize = addedsize
        _TotalSize = totalsize
        _AddedEntries = addedentries
        _TotalEntries = totalentries
        _MakePercent = addedsize / totalsize
    End Sub
    Private _AddedSize As Long
    Public ReadOnly Property AddedSize As Long
        Get
            Return _AddedSize
        End Get
    End Property
    Private _TotalSize As Long
    Public ReadOnly Property TotalSize As Long
        Get
            Return _TotalSize
        End Get
    End Property
    Private _AddedEntries As Long
    Public ReadOnly Property AddedEntries As Long
        Get
            Return _AddedEntries
        End Get
    End Property
    Private _TotalEntries As Long
    Public ReadOnly Property TotalEntries As Long
        Get
            Return _TotalEntries
        End Get
    End Property
    Private _MakePercent As Double
    Public ReadOnly Property MakePercent As Double
        Get
            Return _MakePercent
        End Get
    End Property
End Class


